Night Owl 6

home *** CD-ROM | disk | FTP | other *** search

/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 019a / amac40.zip / RFR003.QM < prev next >

Wrap

Text File | 1991-08-02 | 13KB | 279 lines

* RFR003.QM * Written By Tom Hogshead * [ See RFRMxx.QM For Use ] * August 2, 1991 * Key Subfile Description * ===== =============== ==================================================== * ^(F3__) Formats PARAGRAPH (Fast And Small) * ^(F4__) Formats PARAGRAPH (Slow) * ^(F5__) Formats DOCUMENT With Blank Lines Forming PARAGRAPHS * ^(F6__) Formats BLOCK. Must Position Cursor At BLOCK Begin * ^(F7__) Formats Message Reader Paragraph (Tim Farley) * ^(F8__) Formats QMAC Txtfile BLOCK With Asterisks In Col 1 * * {e:\up\RFRM*}--Return To RFRMxx.QM * *-- eoi * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F3__) Formats a paragraph. (Macro has been around a long time) │ * └─────────────────────────────────────────────────────────────────────┘ * ^F3 Macrobegin Cursordown * move down one line Prevpara * get to beginning of paragraph Wrappara * reformat Nextpara * go to begin next paragraph * * 8 bytes Wed 08-01-1990 10:47:36 * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F4__) Formats Paragraph Only. Keeps in original indented position │ * └─────────────────────────────────────────────────────────────────────┘ * To run, place cursor line anywhere in a paragraph, and press ^F4. * This macro yields the same formatted paragraph as does ^F3 if * the right margin is set to 69 in the QEdit menu or in QCONFIG.DAT. * If there are asterisks in column 1 they are also formatted as part of * the paragraph. ^F4 Macrobegin Unmarkblock * Get ready Cursordown * Get into paragraph Prevpara * Get to paragraph begin Markcolumn * Mark column Endpara * Get to paragraph end Gotocolumn "512" Return * Get all paragraph in block Markcolumn * Mark paragraph Gotoblockbeg * Get to paragraph begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Set rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark end block Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Paste * Put back formatted, marked Begline Makectrofscreen * Better view END: * * 60 bytes Tue 09-11-1990 19:12:08 ***************************** (TEST1) PARAGRAPH ****************************** * (remove * in column 1 before testing) * * This is a (test) paragraph. * Place the cursor line anywhere in this paragraph to run. * Press ^F4 at the same time. * Be sure AutoIndent is ON. (Long line for test )==>>>>>>>>>>>> ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F5__) Formats complete document with blank lines forming paragraphs│ * └─────────────────────────────────────────────────────────────────────┘ * ^F5 MacroBegin Unmarkblock * Unmark Begfile * Get to file begin Setrmargin "69" Return * Set new right margin FORMAT: * Jfalse FINISH: * No more para? go to FINISH WrapPara * Reformat NextPara * Get to begin next paragraph Jump FORMAT: * FINISH: * No more paragraphs Setrmargin "80" Return * Reset right margin * * 26 bytes Wed 09-12-1990 16:47: * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F6__) Formats Block. Must position cursor at beginning of block │ * └─────────────────────────────────────────────────────────────────────┘ * To run, position the 'cursor' at the beginning of the block to * reformat. Press ^F6, then cursor down to bottom of block to * reformat. Press 'Enter' when the block is marked. This macro differs * from ^F8 in that the starting position of the block to be * reformatted is selected by the starting position of the cursor; in * ^F8 the block starting POSITION is selected by the starting * position of the cursor line. * ^F6 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Prevposition * Begline * Prevposition * Makectrofscreen * See better Cursordown * Position to cursor down Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 62 bytes Tue 09-11-1990 19:09:31 ***************************** (TEST2) PARAGRAPH *************************** * This is a test block. To format, place the "cursor" on "T" in * in "this" on line 1. Then press ^F6 and cursor down to * block end. When the block has been marked press * 'Enter'. * Asterisks need not be removed. * *┌───────────────────────────────────────┐ *│^(F7__) Format Message Reader Paragraph│ *└───────────────────────────────────────┘ * Here's a handy macro from Tim Farley of SemWare to reformat a message * reader paragraph. Remember, paragraphs are reformatted to the width * of the right margin setting, so set as needed. * * ========================================================================= * Date: 10-01-90 (19:09) Number: 3041 SemWare Support BBS * To: DAN SNAPPER Refer#: 3028 * From: TIM FARLEY Read: YES * Subj: Message reformat macro Conf: (21) ILink * ------------------------------------------------------------------------ * DS> Does anyone have a macro to reformat a quoted 'off-line' * DS> message paragraph and then reinsert the quotes back? * DS> * DS> * DS> * * Here it is: * * * Reader Paragraph Reform * Mark a line block, hit this key, and it will reform the text, leaving * all "II>" quoting on the left alone. * * Assumes that ">" is the last character of the "quoting" mark. * Also assumes that WordWrap is currently on when you hit it, * and that there is a currently marked block. * ^F7 MacroBegin OneWindow GotoBlockBeg GotoBlockEnd JTrue doit: MarkLine GotoBlockEnd doit: ToggleWordWrap EndLine #254 ToggleWordWrap GotoBlockBeg GotoColumn "16" Return Find ">" Return "BL" Return JTrue foundit: BegLine foundit: CursorRight UnmarkBlock MarkColumn Find #254 Return "N" Return GotoColumn "512" Return MarkColumn BegLine GotoBlockBeg Cut MarkLine CopyBlock CopyBlock CopyBlock UnmarkBlock HorizontalWindow EditFile "$$$$$$$$.tmp" Return BegFile BegLine * Top of files in case it was already here InsertLine InsertLine * ?? Paste UnMarkBlock * put block in place EndFile AddLine BegFile * mandatory blank line on end more: WrapPara * wrap each para JTrue more: * until none left DelLine BegFile BegLine Find Return Return * find our goofy char again DelCh * and delete it GotoColumn "512" Return MarkColumn BegFile BegLine MarkColumn Cut Quit PrevWindow OneWindow Paste GotoBlockEnd CursorDown BegLine UnMarkBlock * * 132 bytes Tue 10-02-1990 16:51:06 (added TH) * This macro is too long for QCONFIG, you'll have to use QMAC to * compile it. Then put the compiled macro files in some directory, * and add the following option to the command line your reader runs * QEdit with: * * /Ld:\dir\filename.ext * * where D:\DIR\FILENAME.EXT is the full drive, path, and name of * the compiled binary macro file. * * I've used this macro myself to reformat quotes, for over a year * now. * * --Tim Farley * SemWare Technical Support * * ┌─────────────────────────────────────────────────────────────────────┐ * │^(F8__) Formats QMAC txtfile block with asterisk in column 1 │ * └─────────────────────────────────────────────────────────────────────┘ * To run, position the 'cursor line' on the first line of the block to * reformat. Press ^F8, then cursor down to bottom of block to * reformat. To reformat, press 'Enter' when the block is marked. This * macro differs from ^F6 in that the block does not include the * asterisk and blank space; in ^F6 the block starting position is * selected by the starting position of the cursor line. This macro * also differs from ^F4 which formats a paragraph from first blank line * which has no text or asterisk on line to last blank line. * * ^F8 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Begline * Start at line begin Wordright * Get to first word on line Cursordown * Position to cursor down Makectrofscreen * See better Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "65" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 61 bytes Tue 09-11-1990 19:21:48